home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / rxasl.lha / rxasl / examples / screen.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2000-11-07  |  904 b   |  36 lines
  1. /*
  2.     reqScreen() example
  3. */
  4.  
  5. if ~show("L","rxasl.library") then
  6.     if ~addLib("rxasl.library",0,-30) then
  7.         say "can't find rxasl.library"
  8.  
  9. a.NTSCREENFRONT  = 1
  10. a.INFOOPENED     = 1
  11. a.DOWIDTH        = 1
  12. a.DOHEIGHT       = 1
  13. a.DODEPTH        = 1
  14. a.DOOVERSCANTYPE = 1
  15. a.DOAUTOSCROLL   = 1
  16. a.OVERSCANTYPE     = 2
  17. a.AUTOSCROLL     = 0
  18. a.INFOLEFTEDGE     = 330
  19. a.INFOTOPEDGE     = 0
  20.  
  21. res=reqScreen(a)
  22. if res==0 then do
  23.     say "OverscanType: " a.OVERSCANTYPE
  24.     say "AutoScroll:   " a.AUTOSCROLL
  25.     say "DISPLAYID:    " a.DISPLAYID
  26.     say "DISPLAYWIDTH: " a.DISPLAYWIDTH
  27.     say "DISPLAYHEIGHT:" a.DISPLAYHEIGHT
  28.     say "DISPLAYDEPTH: " a.DISPLAYDEPTH
  29.     say "INFOOPENED:   " a.INFOOPENED
  30.     say "INFOLEFTEDGE: " a.INFOLEFTEDGE
  31.     say "INFOTOPEDGE:  " a.INFOTOPEDGE
  32.     say "BITMAPWIDTH:  " a.BITMAPWIDTH
  33.     say "BITMAPHEIGHT: " a.BITMAPHEIGHT
  34. end
  35. else if res ~= -1 then say GetRxAslString(res) "(" || RXASLERROR || ")"
  36.